Namespace BAL.Concesion
    Public Class Postor
        Public Function Listar() As DataTable
            Dim _dal As New DAL.Concesion.Postor
            Return _dal.Listar()
        End Function
        Public Function ListarCombo() As DataTable
            Dim _dal As New DAL.Concesion.Postor
            Return _dal.ListarCombo()
        End Function
        Public Function Buscar(ByVal _Parametros As Object()) As DataTable
            Dim _dal As New DAL.Concesion.Postor
            Return _dal.Buscar(_Parametros)
        End Function

        Public Function Grabar(ByVal _Postor As BEL.Concesion.Juridica) As System.Boolean
            Dim _dal As New DAL.Concesion.Postor
            If _Postor.EsNuevo Then
                Return _dal.Insertar(_Postor)
            Else
                Return _dal.Modificar(_Postor)
            End If
        End Function
        Public Function Eliminar(ByVal intJuridico As Int16) As System.Boolean
            Dim _dal As New DAL.Concesion.Postor
            Return _dal.Eliminar(intJuridico)
        End Function
    End Class
End Namespace